***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
*** This Program already converted to Y2K                                                                                                                                                                                                                 
*** S&T Departement     on 29 April 1999 by Ben.Rahman                                                                                                                                                                                                    
***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
set cent on                                                                                                                                                                                                                                               
SET TALK OFF                                                                                                                                                                                                                                              
SET DATE BRITI                                                                                                                                                                                                                                            
                                                                                                                                                                                                                                                          
SET COLO TO W/B,W/B                                                                                                                                                                                                                                       
CLEA                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
cKet1 = 'DISPOSABLE ITEMS AVAILABLE IN A.E.A INTERNATIONAL CLINIC'                                                                                                                                                                                        
cKet2 = 'Printing ...'                                                                                                                                                                                                                                    
dDate = CTOD('  /  /    ')                                                                                                                                                                                                                                
STOR 0 TO nBrs, nHal                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
@05,((80-LEN(cKet1))/2) SAY cKet1                                                                                                                                                                                                                         
@07,17 SAY 'Effective Date :'                                                                                                                                                                                                                             
@07,34 GET dDate                                                                                                                                                                                                                                          
READ                                                                                                                                                                                                                                                      
IF LASTKEY() = 27                                                                                                                                                                                                                                         
   SET COLO TO W/N,W/N                                                                                                                                                                                                                                    
   CLEA                                                                                                                                                                                                                                                   
   CLOS ALL                                                                                                                                                                                                                                               
   RETU                                                                                                                                                                                                                                                   
ENDI                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
@10,((80-LEN(cKet2))/2) SAY cKet2                                                                                                                                                                                                                         
                                                                                                                                                                                                                                                          
SET PRIN ON                                                                                                                                                                                                                                               
SET DEVI TO PRIN                                                                                                                                                                                                                                          
?CHR(15)                                                                                                                                                                                                                                                  
DR1 = 'N:'                                                                                                                                                                                                                                                
F1  = 'DISPOS'                                                                                                                                                                                                                                            
F2  = 'DISPRIN'                                                                                                                                                                                                                                           
                                                                                                                                                                                                                                                          
SET EXCLU OFF                                                                                                                                                                                                                                             
USE &DR1&F1 INDE &DR1&F2                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                                          
DO HDISPRIN                                                                                                                                                                                                                                               
                                                                                                                                                                                                                                                          
DO WHIL .NOT. EOF()                                                                                                                                                                                                                                       
   IF FOR_SALE                                                                                                                                                                                                                                            
      IF nBrs > 58                                                                                                                                                                                                                                        
         DO HDISPRIN                                                                                                                                                                                                                                      
      ENDI                                                                                                                                                                                                                                                
      @nBrs,11 SAY DISP_CODE                                                                                                                                                                                                                              
      @nBrs,18 SAY DISP_NAME                                                                                                                                                                                                                              
      @nBrs,40 SAY ALLTRIM(DISP_QANT)+' '+DISP_UNIT                                                                                                                                                                                                       
      DO SAYG WITH NBRS,55,NEW_PRICE,'9,999.99','999,999'                                                                                                                                                                                                 
*      @nBrs,55 SAY NEW_PRICE PICT '999,999'                                                                                                                                                                                                              
      @nBrs,63 SAY 'per'                                                                                                                                                                                                                                  
      @nBrs,67 SAY DISP_TYPE                                                                                                                                                                                                                              
      IF HEALTHLINE                                                                                                                                                                                                                                       
         @nBrs,81 SAY 'Covered'                                                                                                                                                                                                                           
      ELSE                                                                                                                                                                                                                                                
         @nBrs,81 SAY 'Not Covered'                                                                                                                                                                                                                       
      ENDI                                                                                                                                                                                                                                                
      nBrs = nBrs + 1                                                                                                                                                                                                                                     
   ENDI                                                                                                                                                                                                                                                   
   SKIP                                                                                                                                                                                                                                                   
ENDD                                                                                                                                                                                                                                                      
SET COLO TO W/N,W/N                                                                                                                                                                                                                                       
SET PRIN OFF                                                                                                                                                                                                                                              
SET DEVI TO SCREE                                                                                                                                                                                                                                         
                                                                                                                                                                                                                                                          
CLEA                                                                                                                                                                                                                                                      
CLOS ALL                                                                                                                                                                                                                                                  
RETU                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
